body{
background-image: url("https://wallpapercave.com/dwp2x/wp2525596.jpg");
width: 80%;
margin-left: auto;
margin-right: auto;
}
img{
border: 1px solid #000;
border-radius: 4px;
padding: 5px;
max-width: 100%:
height: auto
}
#header{
text-align: center;
}
h2{
text-align: center;
}
p{
text-align: center;
font-size: 15px;
}
I like frogs and Kermit is a frog. Personally I find the Kermit
character design funny so I wanted to incorporate it in a meme. I had a
meme created before this but I didn’t like it so I created this one
instead.
library(magick)
# First image
Image1 = image_read("Image1.jpg")%>%
image_scale(500)
# Text next to first image
text_1 = image_blank(width = 500,
height = 500,
color = "#000") %>%
image_annotate(text = "Wakes up to \n a good morning",
color = "#fff",
size = 50,
font = "Impact",
gravity = "center")
# Second image
Image2 = image_read("Image2.jpg") %>%
image_scale(500)
# Text next to second image
text_2 = image_blank(width = 500,
height = 500,
color = "#000") %>%
image_annotate(text = "Stats 210 project is \n due today",
color = "#fff",
size = 50,
font = "Impact",
gravity = "center")
# Combing the image with the text
Image1_vector = c(Image1, text_1)
top_row = image_append(Image1_vector)
Image2_vector = c(Image2, text_2)
bottom_row = image_append(Image2_vector)
# Combines it all together
meme = c(top_row, bottom_row) %>%
image_append(stack = TRUE) %>%
image_scale(800)
# Produces a image file
image_write(meme, "my_meme.png")
I created a gif on my favourite pokemon, wooper. I wanted to spread
the beauty of wooper.
library(magick)
# Create starting frame
frame0 = image_blank(color = "white", width = 1008, height = 500) %>%
image_annotate(text = "wooper \n my beloved <3", size = 100, gravity = "center")
# load images to seperate frames
frame1 = image_read("gif1.jpg")
frame2 = image_read("gif2.jpg")
frame3 = image_read("gif3.jpg")
frame4 = image_read("gif4.jpg")
frame5 = image_read("gif5.jpg")
frame6 = image_read("gif6.jpg")
# combine frames into a list
frames = c(frame0, frame1, frame2, frame3, frame4, frame5, frame6)
# function to animate all the frames in the list
animation = frames %>%
image_animate(fps = 1)
# produces a gif file
image_write(animation, "my_animation.gif")